home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 17 Arcade _ Action Games / ARTILL.BIN (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  10.5 KB  |  397 lines
  1. 1 GOTO910
  2. 2 REM ** ML STOP KEY DISABLE **
  3. 3 PRINT"x[169]=[141][169][141]X` [234][255][169][255][133][145]L4[234]x[169]1[141][169][234][141]X`
  4. 4 [153]"xhhh+hNOThhhhhhhPRINT#HRUNHX`111"
  5. 5 [153]"hhhhhhh`1"
  6. 6 [143] ** 4 - POP ML SUBROUTINE **
  7. 10 [143] **GENERAL INPUT ROUTINE **
  8. 15 :
  9. 30 :
  10. 35 [143] +++ INPUT SECTION +++
  11. 40 [151]UO,0:UR$[178]"":UI$[178]""
  12. 42 [139]UL[178]0[167]UL[178]80
  13. 45 [153]"  CMDCMD";:[151]UC,0
  14. 50 [161]UI$:[139]UI$[178]""[167]50
  15. 55 [139]UI$[178][199](13)[175][195](UR$)[177][178]1[167][151]UC,1:[153]" CMD";:[137]85
  16. 60 [139]UI$[178][199](20)[167]105
  17. 62 [139] [195](UR$)[178][177]UL[167]50
  18. 65 [141]120:[143] CHECK FOR VALID CHARACTER
  19. 70 UR$[178]UR$[170]UI$
  20. 75 [153]UI$;
  21. 80 [137]50
  22. 85 [143] +++ CHECK FOR HELP REQUEST +++
  23. 90 [139]UR$[178]UX$[167]195:[143] EXIT TO HELP ROUTINE
  24. 95 [139]UF[178]1[167][141]240
  25. 100 UF[178]0:[153]:[142]
  26. 102 [143] ++ CHECK DELETE ++
  27. 105 [139][195](UR$)[179]1[167]50
  28. 110 UR$[178][200](UR$,[195](UR$)[171]1)
  29. 115 [153]"CMD  CMDCMD";:[137]50
  30. 120 [143] ++ CHECK FOR VALID CHARACTERS ++
  31. 125 [139][195](US$)[178]0[167]150
  32. 130 [129]US[178]1[164][195](US$)
  33. 135 [139]UI$[178][202](US$,US,1)[167][142]
  34. 140 [130]
  35. 145 UI$[178]"":[142]
  36. 150 [143] ** STANDARD INPUT **
  37. 152 [139][198](UI$)[178]46[167][142]
  38. 155 [139]UI$[178][199](32)[167][142]
  39. 160 [139][198](UI$)[179]48[176][198](UI$)[177]57[167]170
  40. 165 [142]
  41. 170 [139][198](UI$)[179]65[176][198](UI$)[177]90[167]180
  42. 175 [142]
  43. 180 [139][198](UI$)[179]193[176][198](UI$)[177]218[167]UI$[178]"":[142]
  44. 185 [139][194](UT)[178]UU%[167]UI$[178][199]([198](UI$)[171]128):[142]
  45. 187 [142]
  46. 190 UI$[178]"":[142]
  47. 195 UF[178]1:[143] +++ HELP ROUTINE EXIT +++
  48. 197 [141]250
  49. 200 [141]245
  50. 205 [129]UQ[178]UB[164](UB[170]987)
  51. 210 UQ%(UQ[171]UB)[178][194](UQ):[130]:[153]"LOAD"
  52. 215 UZ[178]1:UV%[178][194](UT)
  53. 216 [137]300
  54. 217 UZ[178]0:US$[178]UJ$:UG$[178]UK$:UP[178]UJ:UL[178]UK
  55. 218 [139][194](50003)[178]0[167][151]53281,1:[153]"LOAD";:[151]53281,6:[151]53280,14:[137]220
  56. 219 [153]"LOAD";
  57. 220 UT$[178]UL$:[151]UT,UV%:[129]UQ[178]UB[164]UB[170]987
  58. 225 [151]UQ,UQ%(UQ[171]UB):[130]
  59. 230 [151]U1,U1%
  60. 232 [151]U2,U2%
  61. 233 [151]U4,U4%
  62. 234 [151]U3,U3%[171]1
  63. 235 [137]35
  64. 240 UD%[178]((U2%[172]256[170]U1%[170]U3%)[171]UB)[173]40:[153][200](UD$,UD%[170]1):[142]
  65. 245 [153][200](UD$,24);[163]68);"HELP COMINGWAIT";:[142]
  66. 250 U1%[178][194](U1):U2%[178][194](U2):U3%[178][194](U3):U4%[178][194](U4)
  67. 251 UJ$[178]US$:UK$[178]UG$:UL$[178]UT$:UJ[178]UP:UK[178]UL
  68. 255 [142]
  69. 300 [143] ** MENU **
  70. 301 :
  71. 302 [153]"LOAD":[151]UT,UU%:[139][194](50003)[178]0[167][151]53281,9:[151]53280,8
  72. 303 :
  73. 305 [153]"                MENU"
  74. 310 [153]" --------------------------------------"
  75. 315 [153]"       1.   BEGIN ARTILLERY
  76. 320 PRINT"       2.   STUDENT INSTRUCTIONS"
  77. 325 PRINT"       3.   TEACHER INSTRUCTIONS"
  78. 335 PRINT"       4.   QUIT"
  79. 340 PRINT" --------------------------------------"
  80. 345 PRINT"       PRESS A NUMBER KEY (1-4) ";
  81. 350 UL=1:US$="1234":GOSUB35:REM INPUT ROUTINE
  82. 352 US$=""
  83. 355 ONVAL(UR$)GOSUB1000,400,500,396
  84. 360 GOTO300
  85. 395 REM ** RE-ENABLE STOP KEY AND END **
  86. 396 IFPEEK(50003)<>1ANDPEEK(50003)<>160ANDPEEK(50003)<>0THEN399
  87. 397 SYSUU+71:IFPEEK(50003)=0THENPOKE53281,6:POKE53280,14
  88. 398 PRINT"[154][147]":END
  89. 399 GOSUB875:RETURN
  90. 400 REM ** STUDENT INSTRUCTIONS **
  91. 405 PRINT"[147]":POKEUT,UL%:IFPEEK(50003)=0THENPOKE53281,0:POKE53280,0
  92. 410 UP=0:UG$="[211]TUDENT [201]NST":GOSUB850
  93. 412 PRINT" [212]HIS IS A GAME IN WHICH 2 PLAYERS SHOOT";
  94. 413 PRINT" AT EACH OTHER ACROSS A MOUNTAIN."
  95. 414 PRINT" [193]T EACH TURN, THE PLAYER ENTERS THE "
  96. 415 PRINT" ANGLE TO FIRE (1-90) AND THE[160]NUMBER OF  BAGS OF ";
  97. 416 PRINT" POWDER (1 TO 15 [194][193][199][211]).
  98. 418 [153]" (null)(null)(null)VAL:
  99. 475 PRINT" [201]F YOU WISH [200][197][204][208] PRESS 'H' [210][197][212][213][210][206]."
  100. 485 GOSUB835
  101. 490 IFUZ=1THENSYSUP%:GOTO217
  102. 499 RETURN
  103. 500 REM ** TEACHER INSTRUCTIONS **
  104. 501 PRINT"[147]":POKEUT,UL%:IFPEEK(50003)=0THENPOKE53281,2:POKE53280,10
  105. 502 UP=0:UG$="[212]EACHER [201]NST":GOSUB850
  106. 503 PRINT"      [212]O THE BEST OF OUR KNOWLEDGE,"
  107. 504 PRINT"   THIS PROGRAM IS IN THE PUBLIC"
  108. 505 PRINT"   DOMAIN.  [201]F THIS IS NOT THE CASE"
  109. 506 PRINT"   PLEASE CONTACT:"
  110. 507 PRINT"      [195]OMMODORE [194]USINESS [205]ACHINES"
  111. 508 PRINT"          3370 [208]HARMACY [193]VE.
  112. 509 [153]"          ATNGINCOURT, (null)NTARIO"
  113. 510 [153]"          LENANADA   (null)1(null) 2(null)4"
  114. 511 [153]"          (416) 499-4292"
  115. 512 UP[178]1:[141] 835:[141] 850:
  116. 513 [153]"     (null)ROGRAM (null)AME: ATNRTILLERY    
  117. 514 PRINT"     [215]RITTEN [194]Y  : [213]NKNOWN
  118. 515 [153]"     (null)PGRADED PEEKY :          
  119. 516 PRINT"     [212]HIS PROGRAM WILL RUN ON ANY
  120. 519 [153]"         (null)VAL(null) 64 LEN(null)(null)(null)(null)(null)VAL(null)
  121. 520 PRINT"         [195][207][205][205][207][196][207][210][197] 64 [195][207][205][208][213][212][197][210]
  122. 521 [141]835
  123. 590 [139]UZ[178]1[167][158]UP%:[137]217
  124. 599 [142]
  125. 600 [143] ** PROGRAM MODIFICATION INST **
  126. 601 [153]"LOAD":[151]UT,UL%
  127. 605 UP[178]0:UG$[178]"(null)ROGRAM (null)OD":[141]850
  128. 660 [141]835
  129. 690 [139]UZ[178]1[167][158]UP%:[137]217
  130. 699 [142]
  131. 700 [143] ** TO USE 8032 LOAD CBM4032 **
  132. 710 [153]"LOADBEFORE RUNNING THIS PROGRAM ON AN 8032  
  133. 720 PRINT"      LOAD THE 'CBM 4032' PROGRAM"
  134. 730 SYSUU+71
  135. 740 END
  136. 800 REM ** T I T L E   P A G E **
  137. 802 PRINT"[147]";:POKEUT,UU%:IFPEEK(50003)=0THENPOKE53280,14:POKE53281,6
  138. 804 FORI=1TO38:PRINT"[166][146]";:NEXT
  139. 806 FORI=1TO22:PRINT"[157][166][146]";:NEXT
  140. 808 FORI=1TO37:PRINT"[157][157][166][146]";:NEXT
  141. 810 FORI=1TO22:PRINT"[145][157][166][146]";:NEXT
  142. 812 PRINT"[169]  [146]
  143. 814 [153]" WAIT   WAITSTEP
  144. 816 PRINT" [146]  [163][223]
  145. 818 [153]"(null)  WAIT
  146. 820 PRINT"C O M M O D O R E
  147. 822 [153]"EDUCATIONAL
  148. 824 PRINT"SOFTWARE
  149. 826 [143] ** COMMODORE LOGO **
  150. 827 [153][200](UD$,24);"PRESS SPACE BAR OR WAITWAIT":I[178]0
  151. 828 [161]A$:[139]A$[179][177]" "[167]I[178]I[170]1:[139]I[179]250[167]828
  152. 830 T1$[178]"":T2$[178]"":T3$[178]"":T4$[178]"":I[178]0
  153. 832 [137]300
  154. 835 [143] ** SPACE BAR PRESS **
  155. 840 [151]UO,0:[153][200](UD$,24);"PRESS SPACE BAR TO CONTINUEWAIT"
  156. 844 [161]UI$:[139]UI$[179][177]" "[167]844
  157. 846 [142]
  158. 850 [143] ** PAGE DESIGN ROUTINE **
  159. 852 UP[178]UP[170]1
  160. 855 [153]"LOAD"[200](UT$[170]UP$,21);[201](UP$[170]UG$[170][196](UP),18)
  161. 860 [153]" --------------------------------------"
  162. 864 [139]UH[179][177]0[167]870
  163. 865 [153][200](UD$,24);[200](UP$,7);"HELP - PRESS   H <RETURN>"
  164. 870 UH[178]0:[153]"":[142]
  165. 875 [143] ** PLEASE WAIT REMARK **
  166. 880 [153][200](UD$,24);"           ONE MOMENT PLEASE...     "
  167. 885 [142]
  168. 900 [143] ** SET UP VARIABLES **
  169. 901 UX$[178]"H":[134]UQ%(1000):UB[178]32768:U1[178]196:U2[178]197:U3[178]198:U4[178]216:UC[178]167:UU[178]1024
  170. 902 UT[178]59468:UU%[178]12:UL%[178]14:UP%[178]1146:UM[178]32768:UO[178]158:[151] 50003,0
  171. 903 [139][194](50003)[178]0[167]UB[178]1024:U1[178]209:U2[178]210:U3[178]211:U4[178]214:UC[178]204:UU[178]2048
  172. 904 [139][194](50003)[178]0[167]UT[178]53272:UU%[178]21:UL%[178]23:UP%[178]2139:UM[178]1024:UO[178]198
  173. 905 UD$[178]""
  174. 906 UP$[178]"                                       "
  175. 907 UT$[178]" ATNRTILLERY   CLOSECLOSECLOSECLOSECLOSE":[143] PLACE PROGRAM TITLE HERE !!!!!!!!!!!!!!!!!***
  176. 908 [134]A(100),B(100),H(39),A1(2),B1(2),A2(2),B2(2),L(2)
  177. 909 [142]
  178. 910 [143] ** SET VARIABLES **
  179. 915 [141]900
  180. 920 [143] ** CHECK FOR 8032 **
  181. 925 [153]"LOAD":[153]"CLOSE":[143] SHIFTED SPACE
  182. 930 [139][194](UB[170]40)[179][177]96[167][141]700
  183. 931 [143] ** MEMORY CHECK **
  184. 932 [139] [184](0)[177]2000[167]937
  185. 933 [153]"LOADTHIS MACHINE DOES NOT HAVE ENOUGH"
  186. 934 [153]"MEMORY TO RUN THIS PROGRAM !"
  187. 935 [158]UU[170]71
  188. 936 [128]
  189. 937 [153]"LOAD":[139][194](50003)[178]0[167]962
  190. 940 [143] ** BASIC 2.0  OR  4.0  OR  C-64 SETUP **
  191. 941 [151]1075,133:[151]1076,144:[151]1077,234:[151]1079,4:[151]1080,133:[151]1081,145
  192. 942 [151]1091,155:[151]1098,133:[151]1099,144:[151]1100,234:[151]1103,133
  193. 943 [151]1104,145:[151]1105,234:[151]1082,234
  194. 945 [139][194](50003)[179][177]160[167]955
  195. 950 [151]1093,88:[151]1094,228:[151]1097,85:[151]1102,228:[137]965
  196. 955 [139][194](50003)[179][177]1[167]990
  197. 960 [151]1093,49:[151]1094,230:[151]1097,46:[151]1102,230:[137]965
  198. 962 [151]2099,141:[151]2100,20:[151]2101,3:[151]2103,8:[151]2104,141:[151]2105,21
  199. 963 [151]2106,3:[151]2115,145:[151]2117,52:[151]2118,234:[151]2121,49:[151]2122,141
  200. 964 [151]2123,20:[151]2124,3:[151]2126,234:[151]2127,141:[151]2128,21:[151]2129,3
  201. 965 [158]UU[170]48:[143] DISABLE STOP KEY
  202. 970 [141]800:[143] TITLE
  203. 980 [137]300:[143] MENU
  204. 990 [153]"LOADTHE PGM WILL NOT WORK ON THIS MACHINE!":[128]
  205. 1000 [139]UZ[178]1[167][158]UP%:[158]UP%:UZ[178]0:[143] ** PROGRAM STARTS HERE **
  206. 1001 [153]"LOAD";:[140]:[139][194](50003)[178]0[167][151]53281,6:[151]53280,6
  207. 1135 [151]UT,UL%
  208. 1140 [143] GOSUB 2890
  209. 1144 [156]:[141]900
  210. 1270 [153]"LOAD":[151] UT,UU%:[143] RESET TO GRAPHICS
  211. 1280 Z$[178]" ONCMD":[129] X[178]1 [164] 5:Z$[178]Z$[170]Z$:[130]X
  212. 1290 A$[178]"":[129] X[178]1 [164] 6:A$[178]A$[170]A$:[130]X:B$[178]"":[129] X[178]1 [164] 5:B$[178]B$[170]B$:[130]X
  213. 1300 N[178]2
  214. 1310 [143]   CONSTRUCT MOUNTAIN
  215. 1315 [153]"LOAD";[200](UD$,23);"BUILDING MOUNTAIN..."
  216. 1320 X1[178][181](6[170][187](1)[172]8)
  217. 1330 X2[178][181](25[170][187](1)[172]8)
  218. 1340 L(1)[178][181](3[170](X1[171]3)[172][187](1))
  219. 1350 L(2)[178][181](X2[170]1[170](36[171]X2)[172][187](1))
  220. 1360 H9[178][187](1)[172]11[170]1
  221. 1370 [129] I[178]1 [164] X1:H(I)[178]H9:[130]I
  222. 1380 H9[178][187](1)[172]11[170]1
  223. 1390 [129] I[178]X2 [164] 39:H(I)[178]H9:[130]I
  224. 1400 [139] [182](H(1)[171]H(39))[179]4 [167] [137] 1360
  225. 1410 X3[178]X1[170][181]([187](1)[172](X2[171]X1[171]6))[170]3
  226. 1420 H(X3)[178][187](1)[172]11[170]9
  227. 1430 D1[178](H(X3)[171]H(1))[173]2
  228. 1440 D2[178](H(X3)[171]H(39))[173]2
  229. 1450 [139] D1[172]D2[179][178]0 [167] [137] 1610
  230. 1460 J[178][171]180
  231. 1470 K[178]180[173](X3[171]X1[170]1)
  232. 1480 H9[178]H(1)[170]D1
  233. 1490 [129] I[178]X1[170]1 [164] X3[171]1
  234. 1500 J[178]J[170]K
  235. 1510 H(I)[178]H9[170][190](J[172][255][173]180)[172]D1
  236. 1520 [130]I
  237. 1530 J[178]0
  238. 1540 K[178]180[173](X2[171]X3[170]1)
  239. 1550 H9[178]H(39)[170]D2
  240. 1560 [129] I[178]X3[170]1 [164] X2[171]1
  241. 1570 J[178]J[170]K
  242. 1580 H(I)[178]H9[170][190](J[172][255][173]180)[172]D2
  243. 1590 [130]I
  244. 1600 [137] 1690
  245. 1610 D[178](H(1)[171]H(39))[173]2
  246. 1620 J[178]0
  247. 1630 K[178]180[173](X2[171]X1[170]1)
  248. 1640 H9[178]H(39)[170]D
  249. 1650 [129] I[178]X1[170]1 [164] X2[171]1
  250. 1660 J[178]J[170]K
  251. 1670 H(I)[178]H9[170][190](J[172][255][173]180)[172]D
  252. 1680 [130] I
  253. 1690 [153]"";
  254. 1700 W[178][181](100[172]([187](1)[171].5))
  255. 1710 [153][200](B$,22);
  256. 1720 [129] I[178]1 [164] 39:H(I)[178][181](H(I)[170].5):[130]I
  257. 1730 [129] X[178]1 [164] 39:[139]X[178]1 [167] [137] 1750
  258. 1740 [153]"";
  259. 1750 [153][202](Z$,1,H(X)[172]4);
  260. 1760 [129] Z[178]1 [164] H(X):[153]"";:[130]Z
  261. 1770 [130] X:[153]"WAIT"
  262. 1780 [153]"";
  263. 1790 [153][202](B$,1,22[171]H(1));:[139] L(1)[178]1 [167] [137] 1810
  264. 1800 [153][202](A$,1,L(1)[171]1);
  265. 1810 [153]"^";
  266. 1820 [153]"";
  267. 1830 [153][202](B$,1,22[171]H(39));
  268. 1840 [153][202](A$,1,L(2)[171]1);
  269. 1850 [153]"^";
  270. 1855 [153][200](UD$,23)"PLAYER 1WAITPLAYER 2WAIT"
  271. 1860 [153]"";
  272. 1870 [153][202](B$,1,24);
  273. 1880 [153]"       ";
  274. 1890 K[178]1
  275. 1900 [139]W[177][178]0 [167] [137] 1930
  276. 1910 [153][171]W;" MPH WIND <-----  ";
  277. 1920 [137] 1950
  278. 1930 [153]W;" MPH WIND ------>  ";
  279. 1940 [153]"";
  280. 1950 [153]"";:N[178]3[171]N:[139] N[178]1 [167] [137] 2010
  281. 1960 [153][200](UD$,23)" PLAYER 1 WAIT*PLAYER 2*"
  282. 1965 [153]"";[200](A$,23);"ANGLE (1-90) SIN CMDCMD";:UL[178]2
  283. 1970 US$[178]"0123456789H":[141]35:E[178][197](UR$):[139] E[177]90 [167] [153]"CMDCMDSIN CMDCMD";:[137] 1970
  284. 1975 [153]"";:[139]E[178]0 [167] [137] 1965
  285. 1980 [153][200](B$,1);[200](A$,23);"POWDER(1-15)   CMDCMDSINCMD";:UL[178]2:US$[178]"0123456789
  286. 1990 US$=US$+"H":GOSUB35:V=VAL(UR$):IF V>15 OR V<=0 THEN GOTO 1975
  287. 2000 GOTO 2040
  288. 2010 PRINT"                                       ";"                   ";
  289. 2015 PRINT"                                                                  ";
  290. 2020 PRINTLEFT$(UD$,23)"*PLAYER 1* PLAYER 2 [146]"
  291. 2025 PRINT"                                        ";"ANGLE (1-90) [191] [157][157]";:UL=2
  292. 2030 US$="0123456789H":GOSUB35:E=VAL(UR$):IF E>90 OR E=0 THEN GOTO 2025
  293. 2032 PRINT"POWDER (1-15)    [157][157][157][191][157]";:GOSUB35
  294. 2035 V=VAL(UR$):IFV>15 OR V<=0 THEN GOTO 2032
  295. 2040 K=K+1:IF E=0 THEN GOTO 1310
  296. 2050 A2(N)=A2(N)-2.86
  297. 2060 E=90-E
  298. 2070 IF N=1 THEN GOTO 2090
  299. 2080 E=-E
  300. 2090 X1=L(N)
  301. 2100 Y1=H(L(N))+1
  302. 2110 T=0:M=0
  303. 2120 V1=SIN(E*(null)/180)*V
  304. 2130 V2=COS(E*(null)/180)*V*.7
  305. 2140 T=T+.5:M=M+1
  306. 2150 V1=V1+(V1+W*.5)/1500
  307. 2160 X=X1+(V1+W*.5/50)*T
  308. 2170 X=INT(X+.5)
  309. 2180 Y=Y1+(V2-T/3)*T
  310. 2190 Y=INT(Y+.5)
  311. 2200 Z=23-Y:PRINT"";
  312. 2210 A(M)=Z:B(M)=X:IF X>39 OR X<1 THEN GOTO 2530
  313. 2220 IFY-H(X)<=0 THEN GOTO 2520
  314. 2230 IF Z<0 THEN GOTO 2290
  315. 2240 IF Z=0 THEN GOTO 2260
  316. 2250 PRINTLEFT$(B$,Z);
  317. 2260 IF X=1 THEN GOTO 2280
  318. 2270 PRINTLEFT$(A$,X-1);
  319. 2280 PRINT"[209]"
  320. 2290 PRINT"";
  321. 2300 IF M-4<1 THEN GOTO 2140
  322. 2310 IF A(M-4)=0 THEN GOTO 2340
  323. 2320 IF A(M-4)<0 OR B(M-4)<=0 THEN GOTO 2140
  324. 2330 PRINTLEFT$(B$,A(M-4));
  325. 2340 PRINTLEFT$(A$,B(M-4)-1);
  326. 2350 PRINT" ";
  327. 2360 PRINT"";
  328. 2370 GOTO 2140
  329. 2380 IF M=1 THEN GOTO 2140
  330. 2390 IF B(M)<1 OR B(M)>39 THEN GOTO 1950
  331. 2400 REM LINES 2410 AND 2440 DETERMINE HIT. CHANGE '1.5' TO CHANGE DIFFICULTY.
  332. 2410 IF ABS(B(M-1)-L(N))<1.5 THEN GOTO 2430
  333. 2420 GOTO 2440
  334. 2430 IF T>1 THEN GOTO 2710
  335. 2440 IF ABS(B(M-1)-L(3-N))<1.5 THEN GOTO 2790
  336. 2450 IF T<1 THEN GOTO 2140
  337. 2460 GOTO 2650
  338. 2470 PRINT"[145]"
  339. 2480 PRINT"      ANOTHER GAME ? (Y/N) [191][157]";
  340. 2490 UL=1:US$="YNH":GOSUB35
  341. 2500 IF UR$="Y" THEN 1000
  342. 2510 GOTO300
  343. 2520 PRINT"";
  344. 2530 FOR J=4 TO 1 STEP -1
  345. 2540 IF M-J<=0 THEN GOTO 2620
  346. 2550 IF A(M-J)=0 THEN GOTO 2580
  347. 2560 IF A(M-J)<0 OR B(M-J)<=0 THEN GOTO 2620
  348. 2570 PRINT LEFT$(B$,A(M-J));
  349. 2580 IF B(M-J)=1 THEN GOTO 2600
  350. 2590 PRINTLEFT$(A$,B(M-J)-1);
  351. 2600 PRINT" ";
  352. 2610 PRINT"";
  353. 2620 NEXT J:IF M=1 THEN GOTO 2830
  354. 2630 IF B(M)<1 OR B(M)>39 THEN GOTO 2840
  355. 2640 GOTO 2380
  356. 2650 IF B(M-1)=1 THEN GOTO 2670
  357. 2660 PRINTLEFT$(A$,B(M-1)-1);
  358. 2670 PRINTLEFT$(B$,23-H(B(M-1)));
  359. 2680 FOR Z=1 TO 3: PRINT"[145][157][205][215][206][145][157][157][157][205]![206]";:FOR X=1 TO 5:NEXTX
  360. 2690 PRINT"[157][157][157]   [145][157][157][157]   [157][157]";:FOR X=1 TO 5:NEXT X:NEXT Z:PRINT"[185]";
  361. 2700 GOTO 2830
  362. 2710 PRINT"";
  363. 2720 PRINTLEFT$(A$,L(N)-1);
  364. 2730 PRINTLEFT$(B$,24-H(L(N)));
  365. 2740 FOR Z=1 TO10:PRINT"[145][157][223][209][169][146][145][157][157][157][157][205][191]![191][146][206][157][157][157][157][157][145][205][205]![206][206][157][157]";"[157]";
  366. 2750 PRINT" [157][157][157][145]     [157][157][157][157][157][145]     [157][157][157][145]";
  367. 2760 FOR X=1 TO 2:NEXT X:NEXT Z
  368. 2770 FORX=1 TO50:NEXT X
  369. 2780 GOTO 2470
  370. 2790 PRINT"";
  371. 2800 PRINTLEFT$(A$,L(3-N)-1);
  372. 2810 PRINTLEFT$(B$,24-H(L(3-N)-1));
  373. 2820 GOTO 2740
  374. 2830 REM
  375. 2840 W=W+INT(10*(RND(1)-.5))
  376. 2850 PRINT"";LEFT$(B$,24);"        ";
  377. 2860 IF W>=0 THEN PRINT"   [157][157][157]";W;" MPH WIND ----->    ";:GOTO 1950
  378. 2870 PRINT"   [157][157][157]";-W;" MPH WIND <-----    ";:GOTO 1950
  379. 2880 RETURN
  380. 2890 REM
  381. 2900 PRINT "[147]";TAB(15);"[193]RTILLERY":PRINT:PRINT
  382. 2910 PRINT TAB(11);"[195]REATIVE [195]OMPUTING"
  383. 2920 PRINT TAB(13);"[208].[207]. BOX 789-M"
  384. 2930 PRINT TAB(6);"[205]ORRISTOWN, [206]EW [202]ERSEY 07960"
  385. 2931 PRINT"[206][207][212][197]:[208]RESS < [210][197][212][213][210][206] > AFTER[146]"
  386. 2932 PRINT"[197]ACH RESPONSE FROM THE KEYBOARD[146]"
  387. 2934 FORB1=1TO10
  388. 2936 PRINTLEFT$(UD$,21);"[206][207][212][197]:[208][210][197][211][211] [146]< [210][197][212][213][210][206] > AFTER [146]"
  389. 2937 FORB2=1TO300:NEXT:B2=0
  390. 2938 PRINTLEFT$(UD$,21);"[206][207][212][197]:[208][210][197][211][211] < [210][197][212][213][210][206] > AFTER [146]"
  391. 2939 FORB2=1TO300:NEXT:B2=0
  392. 2940 NEXT
  393. 2945 FOR B1=1TO2000:NEXT B1
  394. 2950 B1=0
  395. 2970 RETURN
  396. 6682 
  397.